home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SHARED.cst / 00048_Script_Pete's Code < prev    next >
Text File  |  2001-09-17  |  1KB  |  46 lines
  1. --∂ CleanUpMIAWBeforeQuit
  2.  
  3. global gHDpath
  4.  
  5. on CleanUpMIABeforeQuit
  6.   if count(the windowlist) > 0 then
  7.     repeat with x = 1 to count(the windowlist)
  8.       close window x
  9.       forget window x
  10.     end repeat
  11.   end if
  12. end
  13.  
  14. on CloseLogin  --petemack 07.22.01
  15.   --alert string(the windowlist && "On CloseLogin")
  16.   repeat with x = 1 to count(the windowlist)
  17.     --alert string("repeat loop" && x && "= x")
  18.     set vWindowName = getAt(the windowlist, x)
  19.     --alert string(vWindowName)
  20.     if vWindowName = (window "login.dir") then
  21.       --alert string("gottcha"&&vWindowName)
  22.       forget window x
  23.       -- alert string("forgot window" && x && vWindowName)
  24.       Exit Repeat
  25.     end if
  26.   end repeat
  27.   --alert string(the windowlist && "end of CloseLogin")
  28. end
  29.  
  30. on TurnOnTrace
  31.   if the platform contains "Macintosh" then EXIT
  32.   set the traceLogFile = gHDpath & "messagewindow.txt"
  33.   put the date && the time
  34.   set the trace = 1
  35. end
  36.  
  37. on TurnOffTrace
  38.   if the platform contains "Macintosh" then EXIT
  39.   set the trace = 0
  40.   set the traceLogFile = gHDpath & "messagewindow.txt"
  41.   set the trace = 1
  42.   put the date && the time
  43.   set the trace = 0
  44.   set the traceLogFile = ""
  45. end
  46.